home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 60 / Cine Live 60.iso / pc / Scripts / ToolsInfo.k < prev    next >
Encoding:
Text File  |  1999-06-18  |  1.5 KB  |  90 lines
  1. module oInfoPlugin is cPlugin
  2. has
  3.     Install(thePath)
  4.         do
  5.             self.cPlugin:Install(thePath);
  6.             KERNEL.ConfigureKOption(oInfoKOption);
  7.         end;
  8.  
  9.     release Editor:
  10.         GetIO()
  11.             do
  12.                 result := oIOInfoPlugin;
  13.             end;
  14.     end;
  15. end;
  16.  
  17. object oInfoKOption is "Info";
  18.  
  19. class cInfoConfiguration
  20. is
  21.     cConfiguration;
  22. has
  23.     Copyright;
  24.     Comment;
  25.         
  26.     InitializeSettings()
  27.         do
  28.             self.cConfiguration:InitializeSettings();
  29.             if self.Copyright = void then
  30.                 self.Copyright := "";
  31.             end;
  32.             if self.Comment = void then
  33.                 self.Comment := "";
  34.             end;
  35.         end;
  36.     
  37.     release Editor:
  38.         GetIO()
  39.             do
  40.                 result := oIOInfoConfigurationLine;
  41.             end;
  42.     end;
  43. end;
  44.  
  45. release Editor:
  46.  
  47. object oIOInfoLabel is "Info";
  48.  
  49. object oIOInfoPlugin is cIOPlugin
  50. with
  51.     AboutDialog is cUIAboutPluginDialog
  52.     with
  53.         HelpURL is "Info/index.htm";
  54.         Label is oIOInfoLabel;
  55.         Text is "Project copyright and comment.";
  56.     end;
  57.     ProjectLines is [
  58.         oIOInfoConfigurationLine
  59.     ];
  60. end;
  61.  
  62. object oIOInfoConfigurationLine is cIOConfiguration
  63. with
  64.     IOItemClass is cInfoConfiguration;
  65.     KOption is oInfoKOption;
  66.     Label is oIOInfoLabel;
  67.     Lines is [
  68.         oIOCopyrightSetting,
  69.         oIOCommentSetting
  70.     ];
  71. end;
  72.  
  73. object oIOCopyrightSetting is cIOSettingLine
  74. with
  75.     Name is "Copyright";
  76.     Words is [
  77.         cIOStringBox with Field is Copyright; Range is [1, 255]; Width is 32; end
  78.     ];
  79. end;
  80.  
  81. object oIOCommentSetting is cIOSettingLine
  82. with
  83.     Name is "Comment";
  84.     Words is [
  85.         cIOStringBox with Field is Comment; Range is [1, 255]; Width is 32; end
  86.     ];
  87. end;
  88.  
  89. end; -- release Editor
  90.